COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	begin real x,dx,plabel l1,a1,donne
C00003 ENDMK
C⊗;
begin real x,dx,p;label l1,a1,donne;
x←1.0; dx←-0.1;p←1.1;
l1:if x↑x>p then go to a1;
p←x↑x;x←x+dx;go to l1;
a1: if abs(dx) < 1.0@-6 then go to donne;
dx ← -0.1*dx; p ← x↑x; x ← x+dx; go to l1;
donne: outstr("
x↑x = "&cvf(p)&", x = "&cvf(x)&"
     ");
end;.